home *** CD-ROM | disk | FTP | other *** search
- echo "*n*n*n33m3m 4mHP Mode Selection v1.0*n*n0m"
- echo "*n2m This is a small script for changing a few of those things on HP Deskjets"
- echo " that can be awkward (or impossible!) to change from preferences or from the"
- echo " printer itself. For information on updates and other programs call or write:"
- echo "*n33m Doris Ballard"
- echo " 226 Blackberry Hill Rd."
- echo " Berwick, Maine 03901"
- echo " (207) 384-9901*n*n"
- echo "2m September 15, 19910m*n*n"
- echo " PLEASE ENSURE THAT YOUR PRINTER IS `ON LINE'!!!0m*n"
- wait 5
- echo "*n*n*n*n*n*nPortrait And Landscape Orientation Selection:"
- ask "*nLandscape Orientation On (y/n)? "
- if Warn
- echo "*nThe only font available in Landscape Orientation is Upright Courier.*n"
- echo >ser: "&l1O" NOLINE
- ask "*nSet Point Sizes (y/n)? "
- if Warn
- echo "*nAvailable Point Sizes are 6, 12 and 24.*n"
- ask "*nSet point size to 6 (y/n)? "
- if Warn
- echo >ser: "(s0u0p10h6v0s0b3t2Q" NOLINE
- skip LPitch
- endif
- ask "*nSet point size to 12 (y/n)? "
- if Warn
- echo >ser: "(s0u0p10h12v0s0b3t2Q" NOLINE
- skip LPitch
- endif
- ask "*nSet point size to 24 (y/n)? "
- if Warn
- echo >ser: "(s0u0p10h24v0s0b3t2Q" NOLINE
- skip LPitch
- endif
- echo "*n2m7m Point size not changed.0m*n"
- endif
- lab LPitch
- ask "*nSet Pitch (y/n)? "
- if Warn
- echo "*nThe only pitches available are 10, 16.67 and 20.*n"
- ask "*nSet pitch to 10 (y/n)? "
- if Warn
- echo >ser: "(s10H" NOLINE
- skip PrinterCommands
- endif
- ask "*nSet pitch to 16.67 (y/n)? "
- if Warn
- echo >ser: "(s16.67H" NOLINE
- skip PrinterCommands
- endif
- ask "*nSet pitch to 20 (y/n)? "
- if Warn
- echo >ser: "(s20H" NOLINE
- skip PrinterCommands
- endif
- echo "*n2m7m Pitch not changed.0m*n"
- skip PrinterCommands
- endif
- skip PrinterCommands
- else
- echo "*nDefault to Portrait Orientation."
- echo >ser: "&l0O" NOLINE
- endif
-
- lab Font
- ask "*nWould you like to change printer 2mFont0m (y/n)? "
- if Warn
- echo "*nAvailable fonts are Courier, CGTimes and Letter Gothic.*n"
- ask "*nCourier (y/n)? "
- if Warn
- skip Courier
- endif
- ask "*nCGTimes (y/n)? "
- if Warn
- skip CGTimes
- endif
- ask "*nLetterGothic (y/n)? "
- if Warn
- skip LetGoth
- endif
- echo "*n2m7m Font not changed.0m*n"
- endif
- skip Attributes
-
- lab Courier
- ask "*nCourier Italic (y/n)? "
- if Warn
- echo "*nAvailable point sizes are 6 and 12.*n"
- ask "*nCourier Italic point size 6 (y/n)? "
- if Warn
- ask "*nPrimary font (y/n)? "
- if Warn
- echo >ser: "(s0u0p10h6v1s0b3t2Q" NOLINE
- skip Pitch1
- else
- echo "*nDefault secondary font set."
- echo >ser: ")s0u0p10h6v1s0b3t2Q" NOLINE
- skip Pitch1
- endif
- endif
- ask "*nCourier Italic point size 12 (y/n)? "
- if Warn
- ask "*nPrimary font (y/n)? "
- if Warn
- echo >ser: "(s0u0p10h12v1s0b3t2Q" NOLINE
- skip Pitch1
- else
- echo "*nDefault secondary font set."
- echo >ser: ")s0u0p10h12v1s0b3t2Q" NOLINE
- skip Pitch1
- endif
- endif
- echo "*n2m7m Italic point size not changed.0m*n"
- skip Pitch1
- lab Pitch1
- ask "*nSet Pitch (y/n)? "
- if Warn
- echo "*nAvailable Pitches are 5, 10, and 20.*n"
- ask "*nSet to 5 Pitch (y/n)? "
- if Warn
- echo >ser: "(s5H" NOLINE
- skip ToAttributes2
- endif
- ask "*nSet to 10 Pitch (y/n)? "
- if Warn
- echo >ser: "(s10H" NOLINE
- skip ToAttributes2
- endif
- ask "*nSet to 20 Pitch (y/n)? "
- if Warn
- echo >ser: "(s20H" NOLINE
- skip ToAttributes2
- endif
- echo "*n2m7m Pitch not changed.0m*n"
- skip ToAttributes2
- endif
- skip ToAttributes2
- endif
- echo "*nAvailable Upright Courier point sizes are 6 and 12.*n"
- ask "*nUpright Courier point size 6 (y/n)? "
- if Warn
- ask "*nPrimary font (y/n)? "
- if Warn
- echo >ser: "(s0u0p10h6v0s0b3t2Q" NOLINE
- skip Pitch2
- else
- echo "*nDefault secondary font set."
- echo >ser: ")s0u0p10h6v0s0b3t2Q" NOLINE
- skip Pitch2
- endif
- endif
- ask "*nUpright Courier point size 12 (y/n)? "
- if Warn
- ask "*nPrimary font (y/n)? "
- if Warn
- echo >ser: "(s0u0p10h12v0s0b3t2Q" NOLINE
- skip Pitch2
- else
- echo "*nDefault secondary font set."
- echo >ser: ")s0u0p10h12v0s0b3t2Q" NOLINE
- skip Pitch2
- endif
- endif
- echo "*n2m7m Point size not changed.0m*n"
- skip Pitch2
- lab Pitch2
- ask "*nSet Pitch (y/n)? "
- if Warn
- echo "*nAvailable pitches are 5, 10, 16.67 and 20.*n"
- ask "*nSet to 5 Pitch (y/n)? "
- if Warn
- echo >ser: "(s5H" NOLINE
- skip ToAttributes2
- endif
- ask "*nSet to 10 Pitch (y/n)? "
- if Warn
- echo >ser: "(s10H" NOLINE
- skip ToAttributes2
- endif
- ask "*nSet to 16.67 Pitch (y/n)? "
- if Warn
- echo >ser: "(s16.67H" NOLINE
- skip ToAttributes2
- endif
- ask "*nSet to 20 Pitch (y/n)? "
- if Warn
- echo >ser: "(s20H" NOLINE
- skip ToAttributes2
- endif
- echo "*n2m7m Pitch not changed.0m*n"
- endif
- lab ToAttributes2
- ask "*nWould you like to change 2mAttributes0m (y/n)? "
- if Warn
- skip Attributes2
- endif
- skip PrinterCommands
-
- lab CGTimes
- ask "*nSet point size (y/n)? "
- if Warn
- echo "*nAvailable point sizes are 6 and 12.*n"
- ask "*nCGTimes point size 6 (y/n)? "
- if Warn
- ask "*nPrimary font (y/n)? "
- if Warn
- echo >ser: "(s0u1p6v0s0b4101t2Q" NOLINE
- skip Attributes
- else
- echo "*nSecondary default font set."
- echo >ser: ")s0u1p6v0s0b4101t2Q" NOLINE
- skip Attributes
- endif
- endif
- ask "*nCGTimes point size 12 (y/n)? "
- if Warn
- ask "*nPrimary font (y/n)? "
- if Warn
- echo >ser: "(s0u1p12v0s0b4101t2Q" NOLINE
- skip Attributes
- else
- echo "*nDefault secondary font set."
- echo >ser: ")s0u1p12v0s0b4101t2Q" NOLINE
- skip Attributes
- endif
- endif
- echo "*n2m7m Point size not changed.0m*n"
- endif
- skip Attributes
-
- lab LetGoth
- ask "*nSet point size (y/n)? "
- if Warn
- echo "*nAvailable point sizes are 6 and 12.*n"
- ask "*nLetter Gothic point size 6 (y/n)?"
- if Warn
- ask "*nPrimary font (y/n)? "
- if Warn
- echo >ser: "(s0u0p12h6v0s0b6t2Q" NOLINE
- skip LGPitch
- else
- echo "*nDefault secondary font set."
- echo >ser: ")s0u0p12h6v0s0b6t2Q" NOLINE
- skip LGPitch
- endif
- endif
- ask "*nLetter Gothic point size 12 (y/n)?"
- if Warn
- ask "*nPrimary font (y/n)? "
- if Warn
- echo >ser: "(s0u0p12h12v0s0b6t2Q" NOLINE
- skip LGPitch
- else
- echo "*nDefault secondary font set."
- echo >ser: ")s0u0p12h12v0s0b6t2Q" NOLINE
- skip LGPitch
- endif
- endif
- echo "*n2m7m Point size not changed.0m*n"
- endif
- lab LGPitch
- ask "*nSet Pitch (y/n)? "
- if Warn
- echo "*nAvailable pitches are 12 and 24.*n"
- ask "*nSet to 12 Pitch (y/n)? "
- if Warn
- echo >ser: "(s12H" NOLINE
- skip Attributes
- endif
- ask "*nSet to 24 Pitch (y/n)? "
- if Warn
- echo >ser: "(s24H" NOLINE
- skip Attributes
- endif
- echo "*n2m7m Pitch not changed.0m*n"
- endif
- skip Attributes
-
- lab Attributes
- ask "*nWould you like to change 2mAttributes0m (y/n)? "
- if Not Warn
- skip PrinterCommands
- endif
- ask "*nItalics On (y/n)? "
- if Not Warn
- echo >ser: "(s0S" NOLINE
- else
- echo >ser: "(s1S" NOLINE
- endif
-
- lab Attributes2
- ask "*nBold or Extra Bold On (y/n)? "
- if Warn
- ask "*nExtra Bold On (y/n)? "
- if Warn
- echo >ser: "(s7B" NOLINE
- skip Underline
- endif
- ask "*nRegular Bold On (y/n)? "
- if Warn
- echo >ser: "(s3B" NOLINE
- endif
- else
- echo >ser: "(s0B" NOLINE
- endif
- lab Underline
- ask "*nFloating or Fixed, Double or Single Underline On (y/n)? "
- if Warn
- ask "*nSingle Fixed Underline (y/n)? "
- if Warn
- echo >ser: "&d1D" NOLINE
- skip SetPlace
- endif
- ask "*nDouble Fixed Underline (y/n)? "
- if Warn
- echo >ser: "&d2D" NOLINE
- skip SetPlace
- endif
- ask "*nSingle Float Underline (y/n)? "
- if Warn
- echo >ser: "&d3D" NOLINE
- skip SetPlace
- endif
- ask "*nDouble Float Underline (y/n)? "
- if Warn
- echo >ser: "&d4D" NOLINE
- skip SetPlace
- endif
- else
- echo >ser: "&d@" NOLINE
- endif
- lab SetPlace
- ask "*nSuper or Subscript On (y/n)? "
- if Warn
- ask "*nSuperscript On (y/n)? "
- if Warn
- echo >ser: "(s+1U" NOLINE
- skip PrinterCommands
- endif
- ask "*nSubscript On (y/n)? "
- if Warn
- echo >ser: "(s-1U" NOLINE
- endif
- else
- echo >ser: "(s0U" NOLINE
- endif
-
- lab PrinterCommands
- ask "*nWould you like to set 2mPrinter Commands0m (y/n)? "
- if Warn
- ask "*nPerforation Skip On (y/n)? "
- if Warn
- echo >ser: "&l1L" NOLINE
- else
- echo >ser: "&l0L" NOLINE
- endif
- ask "*nLetter Quality On (y/n)? "
- if Warn
- echo >ser: "(s2Q" NOLINE
- else
- echo >ser: "(s1Q" NOLINE
- endif
- ask "*nEnd-Of-Line Wrap On (y/n)? "
- if Warn
- echo >ser: "&s0C" NOLINE
- else
- echo >ser: "&s1C" NOLINE
- endif
- ask "*nText Scale On (y/n)? "
- if Warn
- echo >ser: "&k6W" NOLINE
- else
- echo >ser: "&k5W" NOLINE
- endif
- ask "*nSet Line Termination (y/n)? "
- if Warn
- echo "*nChoices are: 1) CR = CR, LF = LF, FF = FF"
- echo " 2) CR = CR + LF, LF = LF, FF = FF"
- echo " 3) CR = CR, LF = CR + LF, FF = CR + FF"
- echo " 4) CR = CR + LF, LF = CR + LF, FF = CR + FF"
- ask "*nCR = CR, LF = LF, FF = FF (y/n)? "
- if Warn
- echo >ser: "&k0G" NOLINE
- skip exit
- endif
- ask "*nCR = CR + LF, LF = LF, FF = FF (y/n)? "
- if Warn
- echo >ser: "&k1G" NOLINE
- skip exit
- endif
- ask "*nCR = CR, LF = CR + LF, FF = CR+FF (y/n)? "
- if Warn
- echo >ser: "&k2G" NOLINE
- skip exit
- endif
- ask "*nCR = CR + LF, LF = CR + LF, FF = CR+FF (y/n)? "
- if Warn
- echo >ser: "&k3G" NOLINE
- skip exit
- endif
- echo "*n2m7m Line Termination not changed.0m*n"
- endif
- endif
-
- lab exit
- ask "*n*n*nRun a self test (y/n)? "
- if Warn
- echo >ser: "z" NOLINE
- endif
- ask "*n*nYou want to run through all of this one more time (y/n)? "
- if Warn
- execute HP_ModePar
- endif
- echo "*n*n*n 33mHave a nice day!!!0m*n*n*n"
- wait 5
- endcli > Nil:
-